1 GOTO910
2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
5 [153]"hhhhhhh`  
6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
7 [153]"M <YES>
35 IFUW=0THENSYSUU,15
40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
41 IFUS$="H"THENPOKEUC,1:RETURN
45 GETUI$:IFUI$=""THEN45
50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
60 IFUR=ULTHEN45
65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
80 UR$=LEFT$(UR$,UI):PRINT:RETURN
95 IFLEN(US$)=0THEN110
100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
105 RETURN
110 IFUA=46THENRETURN
115 IFUA=32ANDUR<>0THENRETURN
120 IFUA>47ANDUA<58THENRETURN
125 IFUA>64ANDUA<91THENRETURN
130 IFUA<193ORUA>218THENUI$="":RETURN
135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
140 RETURN
155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
300 REM DERIVED FROM COMMODORE ONTARIO      EDUCATIONAL SOFTWARE PROJECT 1983
310 PROJECT DIRECTOR: FRANK WINTER
320 REM PROGRAM NAME: WORD MACHINE
330 REM WRITTEN BY BILL BATCHER
340 REM MODIFIED BY AL MONETTA AND KARL         ZIM, NOV 79
350 REM REVISED BY MANUEL KYRINIS
360 REM UPDATED BY BILL CUMBERLAND 90
400 PRINT"[147]":POKEUT,UL%:POKEUY,13:POKEUX,13:POKE646,0
405 PRINT"              [201][206][211][212][210][213][195][212][201][207][206][211] [146]
407 [153]"    * (null)O BE READ TO THE PUPILS.STOP":[141]760:[141]792
410 [153]"                    INT    ABS _TAN GRAB DOOR"
415 [153]"  NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWINT    ABSNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
420 [153]"  FREFREFREINT    ABSFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
425 [153]"     INT    ABS _TAN TRAP DOOR"
430 [153]"                           "
435 [153]" (null)HIS IS A WORD MACHINE.  RIGHT$T CAN MAKE"
440 [153]" LOTS OF WORDS.  (null)IGHT NOW IT IS NOT"
445 [153]" WORKING VERY WELL.  (null)HE LETTERS OFTEN"
460 [153]" GET MIXED UP."
465 [141]820
470 [153]"LOAD   (null)OU CAN RESCUE THE GOOD WORDS AND "
475 [153]"   LEAVE THE OTHERS IN THE MACHINE."
480 [153]"   (null)OU WILL HAVE TO WATCH THE WORDS"
485 [153]"   CAREFULLY AS THEY COME ACROSS THE"
490 [153]"   CHUTE.  (null)HEN YOU SEE A WORD THAT"
495 [153]"   MATCHES THE ONE IN THE UPPER LEFT-"
500 [153] "   HAND CORNER, GRAB IT!"
505 [141]820
510 [153]"LOAD   (null)O PULL OUT A WORD, WAIT UNTIL IT"
515 [153]"   IS UNDER THE GRAB DOOR, AND THEN"
520 [153]"   PRESS 'G' TO GRAB IT.  RIGHT$F YOU MISS"
530 [153]"   A GOOD WORD, IT WILL FALL OUT THE"
535 [153]"   TRAP DOOR.  (null)RY TO GRAB 5 GOOD"
540 [153]"   WORDS BEFORE THEY PASS THE GRAB"
545 [153] "   DOOR.  RIGHT$F YOU MISS 5 GOOD WORDS,"
550 [153] "   YOUR TURN IS OVER."
555 [141]820
560 [153]"LOAD (null)OU CAN GIVE THE COMPUTER A WORD TO "
565 [153]" USE OR LET IT CHOOSE ONE."
570 [141]820
575 [142]
700 [143] <YES>
705 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
710 [151]54296,15:[151]54277,42:[151]54278,250
715 [151]54276,23:[151]54273,23:[151]54272,191
720 [129]T[178]1[164]150:[130]:[151]54276,32:[129]T[178]1[164]200:[130]
725 [151]54296,0:[142]
730 [143] <NO>
735 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
740 [151]54296,15:[151]54277,18:[151]54278,242
745 [151]54276,33:[151]54273,4:[151]54272,48
750 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
755 [151]54296,0:[142]
760 [143] <BLIP>
765 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
770 [151]54296,6:[151]54277,42:[151]54278,250
775 [151]54276,23:[151]54273,23:[151]54272,191
780 [129]T[178]1[164]30:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
785 [151]54296,0:[142]
790 [129]T[178]1[164]500:[130]:[142]
791 [129]T[178]1[164]1000:[130]:[142]
792 [129]T[178]1[164]2000:[130]:[142]
793 [129]T[178]1[164]3000:[130]:[142]
800 [153]"LOAD";:[151]UT,UU%:[151]UY,1:[151]UX,1:[151]646,5
801 [153]"      A TPUG EDUCATIONAL PROGRAM
802 PRINT"           FOR C64 COMPUTER
803 [153]"             GRADES K - 1
804 GOSUB791
805 PRINT"                                        [146]";
806 PRINT"                                        [146]";
807 PRINT"             WORD MACHINE               [146]";
808 PRINT"                                        [146]";
809 PRINT"                                        [146]"
810 GOSUB791:GOSUB760
811 PRINT"          INSTRUCTIONS?  Y/N
812 [161]UI$:[139]UI$[179][177]"Y"[175]UI$[179][177]"N"[167]812
813 [139]UI$[178]"Y"[167] [141]400
814 [137]1000
820 [141]791:[141]760
822 [151]UN,0:[153][200](UD$,24);" (null)RESS (null)(null)ATNLENVAL PEEKATN(null) TO CONTINUE WAIT "
825 [161]UI$:[139]UI$[179][177]" "[167]825
830 [142]
835 [151]UN,0:[153][200](UD$,24);"PRESS SPACE BAR TO CONTINUEWAIT "
840 [161]UI$:[139]UI$[179][177]" "[167]840
845 [142]
850 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
855 [153]" --------------------------------------"
860 [143] IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP - PRESS THE LETTER 'H'"
865 UH[178]0:[153]"":[142]
875 [153][200](UD$,24);"           ONE MOMENT PLEASE...     ":[142]
900 US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064
902 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087
904 UC$[178][199](155):UV[178]1214:UF[178]196:UV[178]2238
905 UD$[178]"":UP$[178]"                                      "
909 [142]
910 [141]900:[153]"LOAD":[153]"CLOSE"
920 [141]800:[137]300
1000 [153]"LOAD"UC$;:[140]:[151]UY,0:[151]UX,0
1020 TT[178]TI[170]188[172]FS
1030 [139]TI[179]TT[137]1320
1040 [137]2100
1400 [143] WORDS YOU CAN RESET BEGIN AT 650
2100 S[178]US[170]766:T[178]S[170]1:U[178]T[170]1:O[178]US[170]21:P[178]O[170]1:Q[178]P[170]1:R[178]0:V[178]0
2110 [151]UT,UL%:FS[178].1:[143] FS<1 TO SPEED UP GAME
2115 [153] " STR$O YOU WANT TO CHOOSE A WORD?CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD((null)/(null)) "
2120 [153]" ATNNSWER, THEN PRESS  (null)VAL(null)(null)(null)(null) WAITONONONONONONONONONONONCMDCMDCMDCMDCMDCMDCMDCMD";
2125 UT$[178]" (null)ORD (null)ACHINE":UG$[178]"":UP[178]0:[141]35
2130 [139]UR$[178]"Y"[137]2260
2150 [131]"PEEK","STR$","(null)","(null)","(null)","(null)","LEFT$","(null)","(null)","(null)","(null)","(null)","(null)","(null)","(null)","(null)","(null)"
2160 [131]"(null)","(null)","VAL","LEN","(null)","ASC","MID$","CHR$","(null)","RIGHT$","MID$","(null)","(null)","ATN","VAL"
2170 [131]"(null)ATN(null)","(null)ATN(null)","ATN(null)(null)","(null)ATN(null)","(null)(null)(null)","(null)(null)(null)","(null)(null)(null)","ATNLEN(null)","LENATN(null)","(null)ATN(null)","ATNSTR$STR$","STR$ATNSTR$"
2180 [131]"PEEK(null)PEEK","PEEKRIGHT$PEEK","STR$RIGHT$STR$","PEEKRIGHT$STR$","ATN(null)(null)","(null)ATN(null)","VALATN(null)","ATN(null)VAL","(null)VALATN","ASC(null)(null)","STR$(null)CHR$","(null)(null)(null)"
2190 [131]"(null)(null)(null)","(null)(null)(null)","(null)RIGHT$(null)","PEEKVALSTR$","PEEKRIGHT$CHR$","PEEKATNCHR$","(null)(null)(null)","(null)ATN(null)","(null)VALSTR$","(null)RIGHT$STR$"
2200 A[178][181]([187](TI)[172]34)[170]32
2210 [129]B[178]1[164]A
2220 [135]B$
2230 [130]B
2240 [140]
2250 [137]2300
2260 [153]" (null)HAT IS YOUR 3-LETTER WORD? ";
2280 UL[178]3:US$[178]"ABCDEFGHIJKLMNOPQRSTUVWXYZ":[141]35:B$[178]UR$
2290 [139][195](B$)[179][177]3[137]2260
2295 [151]UT,UL%
2300 [153]"LOAD TOTOTOTOTOTOTOTOTO":[139]UW[178]0[167][158]UU,15
2301 [141]860
2310 C$[178][200](B$,1):D$[178][202](B$,2,1):E$[178][201](B$,1)
2320 [139][198](C$)[179]124[167]C$[178][199]([198](C$)[170]128)
2330 [139][198](D$)[179]124[175][198](D$)[179][177]0[167]D$[178][199]([198](D$)[170]128)
2340 [139][198](E$)[179]124[167]E$[178][199]([198](E$)[170]128)
2350 B$[178]C$[170]D$[170]E$
2360 [153]"SYS (null)OOK FOR:WAIT "B$
2363 [153]"LIST (null)RESS  CHR$ WAIT
2366 PRINT" TO GRAB A WORD.
2370 [153]"                    INT    ABS PRINT_TAN GRAB DOORLIST"
2380 [153]"  NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWINT    ABSNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
2390 [153]"  FREFREFREINT    ABSFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
2400 [153]"     INT    ABS DEF_TAN TRAP DOORLIST"
2410 D[178]([187](TI)[172]12)[171]6
2420 [139]D[177]1[137]2450
2430 X$[178]C$:Y$[178]D$:Z$[178]E$
2440 [137]2580
2450 [139]D[177]2[137]2480
2460 X$[178]E$:Y$[178]C$:Z$[178]D$
2470 [137]2580
2480 [139]D[177]3[137]2510
2490 X$[178]D$:Y$[178]E$:Z$[178]C$
2500 [137]2580
2510 [139]D[177]4[137]2540
2520 X$[178]C$:Y$[178]E$:Z$[178]D$
2530 [137]2580
2540 [139]D[177]5[137]2570
2550 X$[178]E$:Y$[178]D$:Z$[178]C$
2560 [137]2580
2570 X$[178]D$:Y$[178]C$:Z$[178]E$
2580 E[178][187](TI)
2590 [139]E[177].3[137]2710
2600 [139]E[177].1[137]2640
2610 R$[178]X$
2620 [141]3060
2630 X$[178]S$:[137]2710
2640 [139]E[177].2[137]2680
2650 R$[178]Y$
2660 [141]3060
2670 Y$[178]S$:[137]2710
2680 R$[178]Z$
2690 [141]3060
2700 Z$[178]S$
2710 G[178]0
2720 [153]""[163]37)X$;Y$;Z$
2730 [153]"  "
2740 [129]F[178]US[170]480[164]US[170]519
2750 ZA[178][194](F[170]1)
2760 [151]F,ZA
2770 [130]F
2780 G[178]G[170]1
2790 [139][194](US[170]486)[179][177][198](C$)[171]128[137]2870
2800 [139][194](US[170]487)[179][177][198](D$)[171]128[137]2870
2810 [139][194](US[170]488)[179][177][198](E$)[171]128[137]2870
2820 L[178][194](US[170]486):M[178][194](US[170]487):N[178][194](US[170]488)
2830 [129]X[178]US[170]486[164]US[170]488:[151]X,32:[130]X
2840 [151]S,L:[151]T,M:[151]U,N
2850 V[178]V[170]1:[139]V[178]5[137]3450
2860 S[178]S[171]40:T[178]T[171]40:U[178]U[171]40
2870 [161]M$
2875 [139]M$[178]"H"[167]US$[178]"H":UL[178]1:UR$[178]"H":UI$[178][199](13):[153]"":[141]50
2880 [139]M$[178]"G"[137]2900
2890 [137]3040
2900 [129]K[178]US[170]499[164]US[170]502
2910 [139][194](K)[178]32[137]2930
2920 [130]K
2930 K[178]K[170]1
2935 [139]K[177]US[170]519[167]2740
2940 [139][194](K)[178]32[137]2930
2950 L[178][194](K):M[178][194](K[170]1):N[178][194](K[170]2)
2960 [151]O,L:[151]P,M:[151]Q,N
2970 [151]K,32:[151]K[170]1,32:[151]K[170]2,32
2980 O[178]O[170]40:P[178]P[170]40:Q[178]Q[170]40
2990 [139]L[179][177][198](C$)[171]128[137]3030
3000 [139]M[179][177][198](D$)[171]128[137]3030
3010 [139]N[179][177][198](E$)[171]128[137]3030
3020 R[178]R[170]1
3030 [139]O[177]US[170]192[137]3370
3040 [139]G[177]6[137]2410
3050 [137]2740
3060 [135]K$,L$
3070 [139]K$[178]R$[137]3110
3080 [139]L$[178]R$[137]3100
3090 [137]3060
3100 S$[178]K$:[137]3120
3110 S$[178]L$
3120 [140]:[142]
3130 [153]"LOAD":[158]UU,15
3140 [129]I[178]US[164]US[170]39
3150 [151]I,160
3160 [130]I
3170 [129]I[178]US[170]39[164]US[170]999[169]40
3180 [151]I,160
3190 [130]I
3200 [129]I[178]US[170]999[164]US[170]960[169][171]1
3210 [151]I,160
3220 [130]I
3230 [129]I[178]US[170]960[164]US[169][171]40
3240 [151]I,160
3250 [130]I
3370 T[178]TI
3380 [139]TI[179]T[170]60[137]3380
3390 [153]"LOAD      (null)OU HAVE GRABBED 5 WORDS.":[141]760:[141]792
3393 [139]R[178]5[167]3495
3400 T[178]TI
3410 [139]TI[179]T[170]60[137]3410
3420 [153]"SYS      LENORRECT >>>>>> "R"LIST":[141]700:[141]792
3430 T[178]TI
3440 [139]TI[179]T[170]60[137]3440
3460 [153]"DEF      (null)OST IN TRAP > "V"LIST":[141]730:[141]793
3470 [137] 3520
3480 [143] IFR<5GOTO3520
3490 [143] IFV>0GOTO3520
3495 [153]"      ATNLL 5 WORDS WERE CORRECT!":[141]700:[141]791
3500 [153]"          LENONGRATULATIONS!!":[141]700:[141]793
3510 [143]  GOSUB1300
3520 [153] "      STR$O YOU WANT TO PLAY AGAIN ?
3525 PRINT"                 [217]/[206][157][157]";
3530 UL=1:US$="YN":GOSUB35
3540 IFUR$="Y"THEN PRINT"[147]":RESTORE:GOTO2100
3560 PRINT"[147] RETURNING TO THE MENU
3570 [147]"MENU",8
3580 [138]
3590 [128]
3620 [140]:[137]1
3700 [143]
4000 [143] WHC 90:11:27